home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 07ex004.jar / code / ch07 / 07ex004 / 07ex004.pl next >
Perl Script  |  1998-04-01  |  212b  |  9 lines
  1. #!  /usr/bin/perl 
  2. #  example of ARGV, the $. variable, and closing the filehandle 
  3. #  
  4. while(<ARGV>) { 
  5. print "The file being processed is $ARGV.\n" if $. == 1; 
  6. print "$.\t$_"; 
  7. close ARGV if eof; 
  8. }  
  9.